home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 2004 #2 / K-CD-2-2004.ISO / Fire Chief / data1.cab / Program_Executable_Files / Logic / tools / Trigger_Func.scp < prev    next >
Encoding:
Text File  |  2003-05-28  |  977 b   |  60 lines
  1. s32 Trigger_Rescue(TRIGGER trigger)
  2. {
  3.     WORLDRESIDENT wr;
  4.     s32 nbInside;
  5.     s32 nbcivil;
  6.     s32 nb;
  7.     s32 indice;
  8.  
  9.     
  10.  
  11.     nbInside = GetTriggerInNb(trigger);
  12.     nbcivil = GetVariable("NBCIVIL");
  13.  
  14.     for( indice = 0; indice < nbInside; indice += 1)
  15.     {
  16.         wr = GetWorldResidentIn(trigger,indice);
  17.         
  18.         if( GetMetierType(wr) == 0 )
  19.         {
  20.             SetSaved(wr,1);
  21.         }
  22.         else
  23.         {
  24.             for( nb = 1; nb <= nbcivil; nb += 1 )
  25.             {
  26.                 if( IsIDInBag(wr,"civil" + nb) )
  27.                 {
  28.                     SetSaved(GetWorldResident("civil" + nb),1);
  29.                     DropIDInBag(wr, "civil" + nb );
  30.                 }
  31.             }
  32.         }
  33.     }
  34.  
  35.     return 0;
  36. }
  37.  
  38.  
  39. s32 TriggerCivil(TRIGGER trigger)
  40. {
  41.     WORLDRESIDENT wr;
  42.     s32 nbIn;
  43.     s32 indice;
  44.  
  45.     nbIn = GetTriggerInNb(trigger);
  46.     
  47.     
  48.     for( indice = 0; indice < nbIn; indice += 1)
  49.     {
  50.         wr = GetWorldResidentIn(trigger,indice);
  51.         if( GetMetierType(wr) != 0 )
  52.         {
  53.             wr = GetCarrier(trigger);
  54.             SetMobile(wr,0);
  55.             TriggerStop(trigger);
  56.             return 1;                    
  57.         }    
  58.     }
  59.     return 0;
  60. }